program lib_test_prog;  
  use lib_dev_test;
  implicit none;
  logical :: ok;
  call dbg_info("-->lib_test_prog");
  ok = lib_dev_test_all();
end program